home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arrays / hardway.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-08-11  |  7.5 KB  |  259 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   3315
  5.    ClientLeft      =   4860
  6.    ClientTop       =   2550
  7.    ClientWidth     =   1605
  8.    ControlBox      =   0   'False
  9.    Height          =   3720
  10.    Left            =   4800
  11.    LinkTopic       =   "Form2"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3315
  16.    ScaleWidth      =   1605
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   2205
  19.    Visible         =   0   'False
  20.    Width           =   1725
  21.    Begin VB.Label Label10 
  22.       Caption         =   "   Cancel"
  23.       Height          =   285
  24.       Left            =   0
  25.       TabIndex        =   9
  26.       Top             =   2790
  27.       Width           =   1635
  28.    End
  29.    Begin VB.Label Label9 
  30.       Caption         =   "   Label9"
  31.       Height          =   285
  32.       Left            =   0
  33.       TabIndex        =   8
  34.       Top             =   2235
  35.       Width           =   1635
  36.    End
  37.    Begin VB.Label Label8 
  38.       Caption         =   "   Label8"
  39.       Height          =   285
  40.       Left            =   0
  41.       TabIndex        =   7
  42.       Top             =   1950
  43.       Width           =   1635
  44.    End
  45.    Begin VB.Label Label7 
  46.       Caption         =   "   Label7"
  47.       Height          =   270
  48.       Left            =   0
  49.       TabIndex        =   6
  50.       Top             =   1665
  51.       Width           =   1635
  52.    End
  53.    Begin VB.Label Label6 
  54.       Caption         =   "   Label6"
  55.       Height          =   270
  56.       Left            =   -15
  57.       TabIndex        =   5
  58.       Top             =   1410
  59.       Width           =   1650
  60.    End
  61.    Begin VB.Label Label5 
  62.       Caption         =   "   Label5"
  63.       Height          =   270
  64.       Left            =   -15
  65.       TabIndex        =   4
  66.       Top             =   1140
  67.       Width           =   1650
  68.    End
  69.    Begin VB.Label Label4 
  70.       Caption         =   "   Label4"
  71.       Height          =   285
  72.       Left            =   -15
  73.       TabIndex        =   3
  74.       Top             =   855
  75.       Width           =   1650
  76.    End
  77.    Begin VB.Label Label3 
  78.       Caption         =   "   Label3"
  79.       Height          =   285
  80.       Left            =   0
  81.       TabIndex        =   2
  82.       Top             =   570
  83.       Width           =   1635
  84.    End
  85.    Begin VB.Label Label2 
  86.       Caption         =   "   Label2"
  87.       Height          =   285
  88.       Left            =   0
  89.       TabIndex        =   1
  90.       Top             =   285
  91.       Width           =   1635
  92.    End
  93.    Begin VB.Label Label1 
  94.       Caption         =   "   Label1"
  95.       Height          =   285
  96.       Left            =   0
  97.       TabIndex        =   0
  98.       Top             =   0
  99.       Width           =   1635
  100.    End
  101. Attribute VB_Name = "Form2"
  102. Attribute VB_Creatable = False
  103. Attribute VB_Exposed = False
  104. Option Explicit
  105. Private Sub Form_Load()
  106. End Sub
  107. Private Sub Label1_Click()
  108.    Form1.Command1.Caption = "Label1"
  109. End Sub
  110. Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  111.    Label1.BorderStyle = 1
  112.    Label2.BorderStyle = 0
  113.    Label3.BorderStyle = 0
  114.    Label4.BorderStyle = 0
  115.    Label5.BorderStyle = 0
  116.    Label6.BorderStyle = 0
  117.    Label7.BorderStyle = 0
  118.    Label8.BorderStyle = 0
  119.    Label9.BorderStyle = 0
  120.    Label10.BorderStyle = 0
  121. End Sub
  122. Private Sub Label10_Click()
  123.    Label10.BorderStyle = 0
  124.    Form1.Command1.Caption = "Click Me"
  125.    Form2.Visible = False
  126. End Sub
  127. Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  128.    Label1.BorderStyle = 0
  129.    Label2.BorderStyle = 0
  130.    Label3.BorderStyle = 0
  131.    Label4.BorderStyle = 0
  132.    Label5.BorderStyle = 0
  133.    Label6.BorderStyle = 0
  134.    Label7.BorderStyle = 0
  135.    Label8.BorderStyle = 0
  136.    Label9.BorderStyle = 0
  137.    Label10.BorderStyle = 1
  138. End Sub
  139. Private Sub Label2_Click()
  140.    Form1.Command1.Caption = "Label2"
  141. End Sub
  142. Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  143.    Label1.BorderStyle = 0
  144.    Label2.BorderStyle = 1
  145.    Label3.BorderStyle = 0
  146.    Label4.BorderStyle = 0
  147.    Label5.BorderStyle = 0
  148.    Label6.BorderStyle = 0
  149.    Label7.BorderStyle = 0
  150.    Label8.BorderStyle = 0
  151.    Label9.BorderStyle = 0
  152.    Label10.BorderStyle = 0
  153. End Sub
  154. Private Sub Label3_Click()
  155.    Form1.Command1.Caption = "Label3"
  156. End Sub
  157. Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  158.    Label1.BorderStyle = 0
  159.    Label2.BorderStyle = 0
  160.    Label3.BorderStyle = 1
  161.    Label4.BorderStyle = 0
  162.    Label5.BorderStyle = 0
  163.    Label6.BorderStyle = 0
  164.    Label7.BorderStyle = 0
  165.    Label8.BorderStyle = 0
  166.    Label9.BorderStyle = 0
  167.    Label10.BorderStyle = 0
  168. End Sub
  169. Private Sub Label4_Click()
  170.    Form1.Command1.Caption = "Label4"
  171. End Sub
  172. Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  173.    Label1.BorderStyle = 0
  174.    Label2.BorderStyle = 0
  175.    Label3.BorderStyle = 0
  176.    Label4.BorderStyle = 1
  177.    Label5.BorderStyle = 0
  178.    Label6.BorderStyle = 0
  179.    Label7.BorderStyle = 0
  180.    Label8.BorderStyle = 0
  181.    Label9.BorderStyle = 0
  182.    Label10.BorderStyle = 0
  183. End Sub
  184. Private Sub Label5_Click()
  185.    Form1.Command1.Caption = "Label5"
  186. End Sub
  187. Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  188.    Label1.BorderStyle = 0
  189.    Label2.BorderStyle = 0
  190.    Label3.BorderStyle = 0
  191.    Label4.BorderStyle = 0
  192.    Label5.BorderStyle = 1
  193.    Label6.BorderStyle = 0
  194.    Label7.BorderStyle = 0
  195.    Label8.BorderStyle = 0
  196.    Label9.BorderStyle = 0
  197.    Label10.BorderStyle = 0
  198. End Sub
  199. Private Sub Label6_Click()
  200.    Form1.Command1.Caption = "Label6"
  201. End Sub
  202. Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  203.    Label1.BorderStyle = 0
  204.    Label2.BorderStyle = 0
  205.    Label3.BorderStyle = 0
  206.    Label4.BorderStyle = 0
  207.    Label5.BorderStyle = 0
  208.    Label6.BorderStyle = 1
  209.    Label7.BorderStyle = 0
  210.    Label8.BorderStyle = 0
  211.    Label9.BorderStyle = 0
  212.    Label10.BorderStyle = 0
  213. End Sub
  214. Private Sub Label7_Click()
  215.    Form1.Command1.Caption = "Label7"
  216. End Sub
  217. Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  218.    Label1.BorderStyle = 0
  219.    Label2.BorderStyle = 0
  220.    Label3.BorderStyle = 0
  221.    Label4.BorderStyle = 0
  222.    Label5.BorderStyle = 0
  223.    Label6.BorderStyle = 0
  224.    Label7.BorderStyle = 1
  225.    Label8.BorderStyle = 0
  226.    Label9.BorderStyle = 0
  227.    Label10.BorderStyle = 0
  228. End Sub
  229. Private Sub Label8_Click()
  230.    Form1.Command1.Caption = "Label8"
  231. End Sub
  232. Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  233.    Label1.BorderStyle = 0
  234.    Label2.BorderStyle = 0
  235.    Label3.BorderStyle = 0
  236.    Label4.BorderStyle = 0
  237.    Label5.BorderStyle = 0
  238.    Label6.BorderStyle = 0
  239.    Label7.BorderStyle = 0
  240.    Label8.BorderStyle = 1
  241.    Label9.BorderStyle = 0
  242.    Label10.BorderStyle = 0
  243. End Sub
  244. Private Sub Label9_Click()
  245.    Form1.Command1.Caption = "Label9"
  246. End Sub
  247. Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  248.    Label1.BorderStyle = 0
  249.    Label2.BorderStyle = 0
  250.    Label3.BorderStyle = 0
  251.    Label4.BorderStyle = 0
  252.    Label5.BorderStyle = 0
  253.    Label6.BorderStyle = 0
  254.    Label7.BorderStyle = 0
  255.    Label8.BorderStyle = 0
  256.    Label9.BorderStyle = 1
  257.    Label10.BorderStyle = 0
  258. End Sub
  259.